home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8507.arc / DAPLOT.BAS < prev    next >
BASIC Source File  |  1986-09-14  |  1KB  |  53 lines
  1. CLS
  2. PRINT "THIS PROGRAM"
  3. PRINT "PLOTS MULTIPLE DATA POINTS GATHERED BY A/D CONVERTER"
  4. PRINT
  5. PRINT "ENTER THE SAMPLING RATE (samples/second): ":INPUT RATE
  6. CLS
  7. PRINT "THESE ARE THE PARAMETERS WHICH ARE SET FOR THE A/D CARD"
  8. PRINT
  9. ADAPT%=0
  10. DEVICE%=9
  11. MODE%=128
  12. STOR%=0
  13. STAT%=0
  14. CHANLO%=1
  15. CTRL%=0
  16. COUNT=320
  17. DIM V%(319)
  18. PRINT "USING ADAPT NUMBER: ";ADAPT%
  19. PRINT "WITH DEVICE NUMBER: ";DEVICE%
  20. PRINT "EXPANSION DEVICE CONTROL NUMBER: ";CTRL%
  21. PRINT "EXECUTION MODE: ";MODE%
  22. PRINT "CHANNEL ACCESSED: ";CHANLO%
  23. PRINT "NUMBER OF SAMPLES: ";COUNT
  24. PRINT "RATE OF SAMPLING (SAMPLES/SECOND): ";RATE
  25. PRINT
  26. PRINT
  27. PRINT "Shall I save this plot? (type 1 for YES, 2 for NO)"
  28. INPUT TX
  29. IF TX=1 THEN PRINT "ENTER FILE NAME (NO EXTENSIONS)":INPUT P$
  30. PRINT
  31. PRINT "once the plot is complete, hit any key to save"
  32. PRINT
  33. PRINT
  34. PRINT "NOW STRIKE A KEY TO TAKE SAMPLES"
  35. INPUT SS$
  36. CLS
  37. CALL AINM (APAPT%,DEVICE%,CHANLO%,CTRL%,MODE%,
  38.            STOR%,COUNT,RATE,V%(0),STAT%)
  39. SCREEN 1
  40. COLOR 1,7,7
  41. FOR I=0 TO 319
  42. Z=-(V%(I)*6/204.8)+150
  43. PSET(I,Z),14
  44. NEXT I
  45. INPUT SS$
  46. IF TX=2 THEN GOTO 1000
  47. DEF SEG=&HB800
  48. P1$="B:
  49. P2$="
  50. PP$=P1$+P$+P2$
  51. BSAVE PP$,0,&H4000
  52. 1000 END
  53.